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the home block should continue. 


v03-002 coseest Christian D. Saether 13-Sep-1983 
ee mot pet VALID. The drivers have been modified 


py 001 Q MODULE RDHOME ( GUAGE, BL 5582), ; 
: § 0 : IDENT vos Issa’ ; 
3 4 d= : 
; 5 05 BEGIN : 
ea BP : 
: 4 943 1; SRR RARER AAA AREA RARER AAEAEAAAAAAEEE AREA AAAA AAA AERERAAAEREAAEEEEEE : 
° '® ® ° 
we, 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * ; 
3 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ; 
: i Bot¢ : i. ALL RIGHTS RESERVED. . : 
; 14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh a : 
$ 15 0015 1 '* ONLY IN ACCORDANCE WITH THE MS OF SUC LICENSE AND WITH THE * : 
: 16 Bots 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
3 17 1 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
; 18 3018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: i dh : Zs TRANSFERRED. * ; 
Ps :* x P 
; 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 ; 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
: i 8 Z : ~ CORPORATION. : 
: ° w Py 
3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
: ° 8 $ : ° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; : 
: 28 0028 1 is e : 
3 , 8 4 : RRR RA AAA RAAAAAAAEAAAEAAAARAAEAAAAREAEAAA EAA A EA AAAAARAAAEAAAAEAAEAAAEREEAEEE : 
is 3 0031 1 !+4¢ 
3 § 00 ¢ 1! : 
; a8 : ; FACILITY: MOUNT Utility Structure Levels 1 & 2 : 
: 35 0035 1 | ABSTRACT ; 
; J 00 : \ This routine reads the home block, if any, of the volume being mounted. : 
3 3s 0038 1 { ENVIRONMENT: : 
: 40 01: STARLET operating system, including privileged system services ; 
3 e3 0041 : } and lasernal exer rs hed ty has . : 
: 4g 0068 | ice 
8 BET : 
i 46 $ 1 | AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Oct-1977 21:29 3 
: 48 8 1 ! MODIFIED BY: F 
3 49 1! 3 
3 0 > ay : 
; 1 1: we v03-003 cig Hai Hua 5-Ray- 1906 3 
: é § ! : Use SURFACE “ERROR aeare o determine if search for : 
cs es 
; 5 20 8 : 
4 1! Py 
; 3§ $ 1: : 
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i$oseort9ee 91:51:05 yA 


3 28 H 1! 0 fe 1 transition. 

: 1! Eliminate SET BVA io + rqutine and move CLEAR_VALID 

; 60 1! routine to VMOUN hs is only referenced there 

3 2 : on tape error paths. 

; © 1! v03-001 $TJ0247 Steven T. Jeffreys, 31-Mar-1982 

3 ge : : Use a common 1/0 routine. 

; 6 B98 1! v02-004 $TJ0002 Steven T. Jeffreys, ay os 

ie 067 1! Liberal re-write to facilitate operator assisted mount. 
: : BR08 : is aresult, the code indentation is screwed up. 

$ 0 8096 .% v02-003 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 
Boe s 0071 1! Previous revision history moved to MOUNT.REV 

es 0072 1 Ine 

ag i 0073 1 

; 74 0074 1 

3 75 0075 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

: 76 0076 1 REQUIRE ‘SRC$:MOUDEF. B32'; 

teat if 0608 1 

; 0609 1 

; 79 0610 1 FORWARD ROUTINE 

; & 0611 1 READ_HOMEBLOCK; ! read the home block 
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GLOBAL ROUTINE READ_HOMEBLOCK (VOLUME_LABEL, FULL_SEARCH) = 
had 
FUNCTIONAL DESCRIPTION: 
This routine reads the home block, if any, of the volume being mounted. 


Various statuses are returned to be interpreted in the context of the 
operation; errors that are clear losers are signalled. 


3 
(2) 


Wwro 


CALLING SEQUENCE: 
READ_HOMEBLOCK (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of volume Label string descriptor 
ARG2: 1 if search whole disk for home block 
0 if Limited search 
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0 

0 IMPLICIT INPUTS: 

8 CHANNEL: channel number assigned to device being mounted 
0 OUTPUT PARAMETERS: 

NONE 

0 IMPLICIT OUTPUTS: 

0 HOME BLOCK: buffer contains home block if found 
06; HOMEBLOCK_LBN: LBN of home block read 

064 ROUTINE VALUE: 

064 1 if valid and correct home block found 

064 SS$_NOHOMEBLK if home block not found 
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1 

1 

i 

1 0644 SS$_INCVOLLABEL if home block found but wrong volume name 
1 0645 SS$_DEVOFFLINE 

1 0646 SS$_MEDOFL 

1 0647 SS$_FILESTRUCT 

1 pose 

1 649 SIDE EFFECTS: 

1 0650 NONE 

1 0651 

1 $636 -- 

1 065 

1 0654 BEGIN 

1 $2? 

1 § MAP 

: 083 VOLUME _LABEL : REF VECTOR; ! volume Label string descriptor 
1 38 LOCAL 

1 0 STATUS ' system service status 

1 1 10_ STATUS : VECTORC2], | 170 status block 

1 § DELTA ! gone block search delta 
1 BLOCKFACT, i device blocking factor 
! : LBN; ! current LBN being tried 
1 006 EXTERNAL 

1 66 HANNEL ' channel number for 1/9 
1 8 DEVICE_CHAR : BBLOCK, i disk device characteristics 
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DEVCHAR_DESC : VECTOR, ! device characteristics descriptor 
HOME BLOCK : BBLOCK, ' home block buffer 
HOMEBLOCK_LBN, ! of home block read 
CTLSGL_PHDB : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
! pointer to process header 
EXTERNAL ROUTINE 
READ BLOCK ' read a disk block 
CHECR_HOMEBLK1, ' verify structure level 1 home block 
CHECK_HOMEBLK2; ! verify structure level 2 home block 


!' Issue a pack acknowlege so we can talk to the disk. 

! Inhibit error logging to avoid saturating the error log 

! with media/device offline errors. These errors cause 

us to return and try an operator assisted mount. 

STATUS = DO_IO (CHAN = 
FUNC 
EFN 


10SB 
ATUS THEN STATU 
- STATUS 


z ACK OR 10$M_INHERLOG), 
= 
s 


0); 
TUSCO})<0, 16>; 


e 
wn 
—— 


Allow ILLIOFUNC errors, as devices that have 
no PACKACK function will return this status. 


F .STATUS NEQ SS$_ILLIOFUNC 

ERR_EXIT (.STATUS); 
! Re-read the device characteristics. (For some devices, packack causes the 
correct characteristics to be determined and recorded in the 1/0 data base.) 
SGETCHN (CHAN = .CHANNEL, PRIBUF = DEVCHAR_DESC); 
! Compute the home block search delta from the volume geometry in the 


i device table. This is done according to the following rules, where volume 
! geometry is expressed in the order sectors, tracks, cylinders: 


! 

é nx ix: 1 

: Txnxt: 1 

Tx ixn: 1 

i nx mx: n+1 

‘ nx ix am: n+1 

: lxnx am: n+1 

: sxtxe: (t+1) #541 

BLOCKFACT = 0 Oey Tee CARED ieee SECTORS? 
* .DEVICE_CHARCDIB$B_TRACKS 


Sep-1984 01:31: VAX-11 Bliss-32 V4.0-742 5 
et 16- sen-1984 94:21:98 DISKSVMSMASTER: CMOUNT . SRCJRDHOME . B3204 (2) 
is: 7 * .DEVICE CHAR(DIB$W_CYLINDERS]) 
; 139 i ; / DEVI EE-EHAREDIBSE CHARON DE 3 
3 199 7 § DELTA = 1; 
; 200 730 2 IF -DEVICE_CHAREDIBSU_CYLINDERS GTR 1 
H 01 731 AND gay} CHARLDIBSB_TRACKS) GTR 1 
: o¢ f ¢ THEN DELTA = .DELTA + .DEVICE_CHARCDIBSB_TRACKS); 
: 204 734 2 IF DEVICE _CHARCDIBSB_SECTORS) GTR 1 
; 205 735 AND (. DEVICE CHARED BSO_CYLINDERS) GTR 1 
3 Be 7 OR .DEVICE_CRARCOIB$8_TRACKS] GTR 1) 
H 4 t THEN DELTA = (.DELTA * .DEVICE _CHARCDIBSB_SECTORS] + .BLOCKFACT) / .BLOCKFACT; 
; 209 7 § IF .DELTA EQL 0 
3; 210 740 R_.DELTA GTRY .DEVICE_CHARCDIBSL_MAXBLOCK] / 10 
: 1} od THEN DELTA = 7; 
3 18 74 ' Limit the Lock georen to 10 hits to save time. If the device is 
: 216 744 i being Canned Files-11 then we try all the way just in case the home block 
s 215 745 i is in a weird location. Note the potential protection hole: Disks with the 
3 18 ms i home block far into the disk are not protected from being mounted foreign 
s 2 74 i by non-privileged users. C'est la vie. 
; 218 748 i 
3 19 749 
3 , f ? LON = 1; 
: ; 236 IF ¢ 
; 7 DECRU J FROM (IF .FULL_SEARCH THEN -1 ELSE 10) TO 1 DO 
H 6 754 4 BEGIN 
$ 5 755 4 STATUS = READ_BLOCK (.LBN, HOME_BLOCK); 
3 $ 7 § 4 If .STATUS 
: 7 4 THEN 
: 228 oF 38 BEGIN 
: $3 75 IF .HOME pL ocKtraese STRUCLEV] EQL 1 
; 0 8700 THE EN STATUS = arere K_ROMEBLK1 (HOME _BLOCK, .LBN, «VOLUME _LABEL) 
F 331 761 ELSE IF HOME 6 OCKCHM2$B STRUCLEV] EQL 2 
3 3 O766 THEN S$ ="CHECR. HOMEBCK2 (HOME_BLOCK, .LBN, .VOLUME_LABEL) 
3 143 ELSE STAT 
3 764 IF .STA us 
; 5 765 OR ,oialye EQL SS$_INCVOLLABEL 
: 766 THEN EXITLOOP 0; 
$3 ren evsee™” 
3 9 66 BEGIN 
; 40 770 IF Se ith EQL SS$_ ILLBLKNUM 
3 71 THEN EXIT Lo 
3 g IF NOT SURFACE ERROR (.STATUS) 
3 THEN ERR_EXIT T STATUS); 
; 2 END; 
: 4 IF NOT “FULL SEAR 
; 4 -BBLOCK [CT SEL PHOCPHDSQ _PRIVMSK], PRVSV_VOLPROJ 
: 2 THEN BE ORN (SS _NOROMEBLK) ; 
3 A LBN = .LBN + DELTA; 
3 ; END 
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THEN 
BEGIN 
READ BLOCK (1, HOME BLOCK); 
RETURN (SS$_NOHOMEBLK) ; 
HOMEBLOCK_LBN = .LBN; 
RETURN .STATUS; 
END; ! end of routine READ_HOMEBLK 
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PHD 
CH heck HOMEBLK1 
TRN CHECR ef COMMON N_I0 
-PSECT $CODES$,NOWRT,2 

03FC 00000 .ENTRY READ_HOMEBLOCK, Save R2,R3,R4,R5,R6,R7,R8,- ; 0612 

9E 9000 MOVAB LIBSSTOP is 

9 HOME RB 

9 800 MOV DevITE Lot, |f R7 
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VICE_CHAR+10, #1 


#10 SE YICE_ComMMOTTE, RO 
LTA, R 

#1, DELTA 

#1, LBN 

FULL SEARCH, 8S 

#i, R 


#10, R5 
FULL SEARCH, R6 


VoL UME LABEL 
LBN 


CHECK_HOMEBLK1 
HOME_BLOCK+13, #2 
VOLUME _LABEL 
LBN 


R 

#35, CHECK HOMEBLK2 
* STATUS 
$ 


21$ 
siATUS. #220 
9$ 


ae 
D beitt CHAR+112, R2, BLOCKFACT 
DECTA 
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000001F4 
0000005C 
0000008C 
00002144 


15 


00006 


00006 


264 0794 1 
265 0795 1 END 
266 0796 0 ELUDOM 
Name Bytes 
SCODES 


8F 
8F 
8F 
8F 
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000000006 
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; Routine Size: 375 bytes, Routine Base: S$CODE$ 


PSECT SUMMARY 


CouCvOwnteOOoWwW—-CV Oo OmMomMno—-0 30 0 “09 


FOOLS “WN 0D 9 WH A 


+ 0000 


375 NOVEC,NOWRT, RD, 


Library Statistics 


File 
-$255$DUA28: CSYSLIBILIB.L32;1 


Total 
18619 


Symbols 
Loaded 


24 


Attributes 


Percent 
0 
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CMPL TATUS, #500 : 
BEQL : 
CMPL TATUS, #92 : 
BEQL : 
CMPL TATUS, #188 : 
BEQL 3 
CMPL STATUS, #8516 : 
BEQL 6$ : 
PUSHL STATUS : 
CALLS #1, jgede : 
BLBC SO séaR $ : 
MOVL weir tab PHD : 
BBS Ue ; 
ADDL2 +H tac : 
DECL q 3 
TSTL : 
BEQL 19s : 
BRW ne 3 
PUSHL R : 
PUSHL : 
ALLS tg READ getock : 
mOvZWL 572, : 
MOVL LBN HOMEBLOCK LBN : 
MOVL STATUS : 


-EXTRN LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.9 
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0772 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RDHOME/OBJ=OBJ$:RDHOME MSRC$:RDHOME/UPDATE=(ENHS$:RDHOME) 
; gize: 375 ’ + 0 data bytes 


Auman, 83 


; Lexemes/CPU-Min: 2 
; "Y Used: 154 pages 
; Compilation Complete 
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